cyber.net interactivo 1997 January/inter@ivo 1997-01.iso/cybint12/bin/ano95.dxr/00019.ls

Text File | 1996-12-14 | 4.1 KB | 165 lines

on exitFrame
  global act
  if act = 0 then
    if rollOver(35) or rollOver(36) then
      cursor([901, 902])
    else
      cursor(-1)
    end if
  end if
  if act = 0 then
    if (the mouseCast = 14) and (the visible of sprite 3 = 0) then
      set the visible of sprite 3 to 1
    else
      if (the mouseCast <> 14) and (the visible of sprite 3 = 1) then
        set the visible of sprite 3 to 0
      end if
    end if
  end if
  if act = 0 then
    if (the mouseCast = 15) and (the visible of sprite 5 = 0) then
      set the visible of sprite 5 to 1
    else
      if (the mouseCast <> 15) and (the visible of sprite 5 = 1) then
        set the visible of sprite 5 to 0
      end if
    end if
  end if
  if act = 0 then
    if (the mouseCast = 16) and (the visible of sprite 7 = 0) then
      set the visible of sprite 7 to 1
    else
      if (the mouseCast <> 16) and (the visible of sprite 7 = 1) then
        set the visible of sprite 7 to 0
      end if
    end if
  end if
  if act = 0 then
    if (the mouseCast = 17) and (the visible of sprite 9 = 0) then
      set the visible of sprite 9 to 1
    else
      if (the mouseCast <> 17) and (the visible of sprite 9 = 1) then
        set the visible of sprite 9 to 0
      end if
    end if
  end if
  if act = 0 then
    if (the mouseCast = 18) and (the visible of sprite 11 = 0) then
      set the visible of sprite 11 to 1
    else
      if (the mouseCast <> 18) and (the visible of sprite 11 = 1) then
        set the visible of sprite 11 to 0
      end if
    end if
  end if
  if act = 0 then
    if (the mouseCast = 26) or (the mouseCast = 27) then
      if the visible of sprite 23 = 0 then
        set the visible of sprite 23 to 1
      end if
    else
      set the visible of sprite 23 to 0
    end if
  end if
  if act = 0 then
    if (the mouseCast = 37) or (the mouseCast = 38) then
      if the visible of sprite 28 = 0 then
        set the visible of sprite 28 to 1
        set the visible of sprite 29 to 1
      end if
    else
      set the visible of sprite 28 to 0
      set the visible of sprite 29 to 0
    end if
  end if
  if act = 1 then
    if rollOver(38) or rollOver(39) then
      cursor([901, 902])
    else
      cursor(-1)
    end if
  end if
  go(the frame)
end

on mouseDown
  if the mouseCast = 14 then
    set the visible of sprite 2 to 1
  end if
  if the mouseCast = 15 then
    set the visible of sprite 4 to 1
  end if
  if the mouseCast = 16 then
    set the visible of sprite 6 to 1
  end if
  if the mouseCast = 17 then
    set the visible of sprite 8 to 1
  end if
  if the mouseCast = 18 then
    set the visible of sprite 10 to 1
  end if
  set i to 20
  set z to 12
  repeat while i < 25
    if the mouseCast = i then
      set the visible of sprite z to 0
    end if
    set i to i + 1
    set z to z + 1
  end repeat
end

on mouseUp
  if the visible of sprite 2 = 1 then
    set i to 12
    repeat while i < 17
      set the visible of sprite i to 0
      set i to i + 1
    end repeat
    set the visible of sprite 2 to 0
    set the visible of sprite 12 to 1
  end if
  if the visible of sprite 4 = 1 then
    set i to 12
    repeat while i < 17
      set the visible of sprite i to 0
      set i to i + 1
    end repeat
    set the visible of sprite 4 to 0
  end if
  if the visible of sprite 6 = 1 then
    set i to 12
    repeat while i < 17
      set the visible of sprite i to 0
      set i to i + 1
    end repeat
    set the visible of sprite 6 to 0
    set the visible of sprite 14 to 1
  end if
  if the visible of sprite 8 = 1 then
    set i to 12
    repeat while i < 17
      set the visible of sprite i to 0
      set i to i + 1
    end repeat
    set the visible of sprite 8 to 0
    set the visible of sprite 15 to 1
  end if
  if the visible of sprite 10 = 1 then
    set i to 12
    repeat while i < 17
      set the visible of sprite i to 0
      set i to i + 1
    end repeat
    set the visible of sprite 10 to 0
    set the visible of sprite 16 to 1
  end if
  if (the mouseCast = 26) or (the mouseCast = 27) then
    if the visible of sprite 23 = 0 then
      set the visible of sprite 23 to 1
    end if
  else
    set the visible of sprite 23 to 0
  end if
end